home *** CD-ROM | disk | FTP | other *** search
/ Micom Basic 1995 October / CD [BM9510].bin / basic / toukou / msx / senkanl1.bas next >
Encoding:
BASIC Source File  |  1986-06-09  |  2.4 KB  |  39 lines
  1. 10 COLOR15,0,0:SCREEN5,2,0:DEFINTA-Z:SETPAGE1,1:CLS
  2. 20 ' àààààààà  ╖¼╫ ╗╕╛▓  àààààààà
  3. 30 RESTORE70:FORK=0TO1:FORI=0TO15:READA$:FORJ=0TO31
  4. 40 VPOKEI*128+J+K*32,VAL("&H"+MID$(A$,J*2+1,2)):NEXTJ,I,K
  5. 50 COPY(0,0)-(111,15),1TO"ûÆ₧²-CHR.DAT":BEEP:BEEP:END
  6. 60 ' àààààààà  ╖¼╫ ├▐-└  àààààààà
  7. 70 DATA 4444554445544554444455444554455444445544455445544444554445544554
  8. 80 DATA 4444444554444444444444455414444444444445544464144444444554444444
  9. 90 DATA 4445544444444444444554444111444444611446444614444445584444444444
  10. 100 DATA 4554444444444455455444444414445545548144644614554554444448444455
  11. 110 DATA 4444444455445544444444445111554444444886156155444444444455445544
  12. 120 DATA 4444445544444444444444551114444444444668866144444448845848444444
  13. 130 DATA 5544444444444444554444444114114455444688AB6864445484484884488444
  14. 140 DATA 4444444444444455444144441111445544444689A6B866554844448AA8844855
  15. 150 DATA 4444554444444444444414441111441444688889AAB886664444568AAA444444
  16. 160 DATA 445544444455444444554114111141441151166816BA6441445666BBB8588644
  17. 170 DATA 444444445544444411111111111111114444416669A866444466466685444864
  18. 180 DATA 544444444444444551111111111111115444444A888644455464444444444445
  19. 190 DATA 4445544455444554441111111111111444455444444444544445544455444554
  20. 200 DATA 4554445544444444474455744744474445544455444444444554445544444444
  21. 210 DATA 4444444444444444444444444447444744444444445544444444444444444444
  22. 220 DATA 5444445544444445544454544454544454444455444444455444445544444445
  23. 230 DATA 444455444554455444445544455445544444444444444444
  24. 240 DATA 444444455444A44444444445544444445444445544444445
  25. 250 DATA 44AB444A444A444444455B444444444444445F44F5544554
  26. 260 DATA 4554B444A44A4455455444A444A444554444444554444444
  27. 270 DATA 4444494A45A45544444444A4594455444445544F444F4444
  28. 280 DATA 4444449A6AA44444444BB4494B4444444554F44444444455
  29. 290 DATA 55444AA9A6A8A44454A4494BB44BB44444444444F54F5544
  30. 300 DATA 44444AB9886BAA554B4444B8BB844A554444445544444F44
  31. 310 DATA 44A9B8698868B9A444445A888A4A44445544F4F44FF4F444
  32. 320 DATA 4A544AB6996AA44B445BAB6A6BA4BB4444F4444F444F4455
  33. 330 DATA B44444A8A88B9A4444A44AAABA4444B444445F444F4F44F4
  34. 340 DATA 5444444ABBBA44455444444A44A44445445F44FF44F44444
  35. 350 DATA 4445544444444454444554445544455444444F44FF444F44
  36. 360 DATA 455444554444444445544455444444445444444444444445
  37. 370 DATA 444444444455444444444444444444444445544455444554
  38. 380 DATA 544444554444444554444455444444454554445544444444
  39.